home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 68.7z / BS1 part 68 / Cinema 4D v1.0 (1993)(Maxon Computer GMBH)(DE)(Disk 1 of 4)(Installation)[FD-HD].7z / Cinema 4D v1.0 (1993)(Maxon Computer GMBH)(DE)(Disk 1 of 4)(Installation)[FD-HD].adf / INSTALL-MaxonCINEMA4D < prev    next >
Text File  |  1993-11-03  |  29KB  |  925 lines
  1. ; $VER: MaxonCINEMA4D V1.0 Install Version 1.0 (27.10.93)
  2. ; Script zum Installieren von MaxonCINEMA4D V1.0 auf Festplatte und Diskette
  3. ; 
  4.  
  5. ;====================================================================
  6. ; Einige Initialisierungen
  7. ;====================================================================
  8.  
  9. (complete 0)
  10.  
  11. (set os-version (/ (getversion) 65536))
  12. (set os-13 (< os-version 36))
  13. (set os-20 (>= os-version 36))
  14. (set os-21 (>= os-version 38))
  15. (set cpu-type (database "cpu"))
  16. (set pal-ntsc (database "vblank"))        ; entsprechend den Default Knopf in der Abfrage ändern
  17.  
  18. (set fdinstall 1)                                            ; auf Platte (1) oder Disk (0)
  19. (set fdrawer "WORK:")                                    ; default Verzeichnis
  20. (set fdversion 0)
  21. (if (<> cpu-type "68000")
  22.     (
  23.     (if (<> cpu-type "68010")
  24.         (
  25.         (set fdversion 1))
  26.     )))
  27.  
  28. (if (= pal-ntsc "50")
  29.     (
  30.     (set palntsc 0))                                            ; PAL
  31.     ((set palntsc 1))                                            ; NTSC
  32. )
  33.  
  34. (set egs (getassign "EGS"))
  35. (set gfxout 0)                                                    ; Keine
  36. (if (<> egs "")    
  37.     ((set gfxout 2)))                                            ; EGS, 1=Retina
  38.  
  39. (set samples 1)                                                    ; 1 Beispiele installieren, 0 nicht installieren
  40.  
  41. ; Die Diskettennamen
  42.  
  43. (set DISK1     "INSTALLATION")
  44. (set DISK2    "DISKETTE2")
  45. (set DISK3    "DISKETTE3")
  46. (set DISK4    "DISKETTE4")
  47. (set DISKTEXTUREN "Texturen")
  48. ; Die Pfadnamen der einzelnen Quell-Dateien.
  49.  
  50. (set sourcefd-more                        "INSTALLATION:C/More")
  51. (set sourcefd-lhx                            "INSTALLATION:C/LHX")
  52. (set sourcefd-rctlib                    "DISKETTE2:rct.library")
  53. (set sourced-palturbo                    "INSTALLATION:Prefs-Archiv/DISK_PAL_881.prefs")
  54. (set sourced-ntscturbo                "INSTALLATION:Prefs-Archiv/DISK_NTSC_881.prefs")
  55. (set sourced-palnormal                "INSTALLATION:Prefs-Archiv/DISK_PAL_000.prefs")
  56. (set sourced-ntscnormal                "INSTALLATION:Prefs-Archiv/DISK_NTSC_000.prefs")
  57. (set sourcef-ntscturbo                "INSTALLATION:Prefs-Archiv/HD_NTSC_881.prefs")
  58. (set sourcef-ntscnormal                "INSTALLATION:Prefs-Archiv/HD_NTSC_000.prefs")
  59. (set sourcefd-retina                    "DISKETTE2:Retina/cinemaausgabe.library")
  60. (set sourcefd-egs                            "DISKETTE2:EGS/cinemaausgabe.library")
  61. (set sourcefd-egsflush1                "DISKETTE2:FlushLib")
  62. (set sourcefd-egsflush2                "DISKETTE2:FlushLib.dok")
  63.  
  64. ; Patternkopie mit #? (alle auf dem angegebenen Pfad)
  65.  
  66. (set sourcef-pattern-bilder        "DISKETTE3:Bilder")    ; alle übertragen
  67. (set sourcef-Pattern-disk4        "DISKETTE4:")                ; alle Texturen von Disk 4
  68.  
  69. ; LHA-Dateien
  70.  
  71. (set sourcefd-lha-normalversion    "INSTALLATION:Programm.lha")
  72. (set sourcefd-lha-turboversion    "INSTALLATION:Programm881.lha")
  73. (set sourcefd-lha-Diamant            "DISKETTE2:Diamant.lha")
  74. (set sourcefd-lha-Helvetica        "DISKETTE2:Helvetica.lha")
  75. (set sourcefd-lha-Konverter        "DISKETTE2:Konverter.lha")
  76. (set sourcefd-lha-Hilfsprogs    "DISKETTE2:Hilfsprogramme.lha")
  77. (set sourcefd-lha-Entwickler    "DISKETTE2:Entwickler.lha")
  78. (set sourcefd-lha-Schubladen    "DISKETTE3:Schubladen.lha")
  79. (set sourcefd-lha-Diamantklein    "DISKETTE3:Diamant-Klein.lha")
  80. (set sourcefd-lha-Szenen            "DISKETTE3:Szenen.lha")
  81.  
  82. ; Diskettennamen für die Disketteninstallation
  83.  
  84. (set destdisk1 "CINEMA 4D")
  85. (set destdisk2 "Hilfsprogramme")
  86. (set destdisk3 "Diamant")
  87. (set destdisk4 "Zeichensätze")
  88. (set destdisk5 "Szenen")
  89. (set destdisk6 "Daten")
  90. (set destdisk7 "Texturen")
  91.  
  92. (set diskdest11 "CINEMA 4D:")
  93. (set diskdest22 "Hilfsprogramme:")
  94. (set diskdest33 "Diamant:")
  95. (set diskdest44 "Zeichensätze:")
  96. (set diskdest55 "Szenen:")
  97. (set diskdest66 "Daten:")
  98. (set diskdest77 "Texturen:")
  99.  
  100. ;============================
  101. ;=== Deutsche Erklärungen ===
  102. ;============================
  103. (set #startup-help
  104. (cat "Erklärung der Schalter:\n\n"
  105.      "\"Install for Real\"\n"
  106.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  107.      "\"Pretend to Install\"\n"
  108.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  109.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  110.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  111.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  112.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  113.      "Liste über alle durchgeführten Aktionen.\n\n"
  114.      "\"Printer\"\n"
  115.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  116.      "ausgegeben.\n\n"
  117.      "\"Log File\"\n"
  118.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  119.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  120.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  121.      "\"None\"\n"
  122.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  123. (set #introduction
  124. (cat "Mit diesem Installationsprogramm können Sie\n MaxonCINEMA 4D\n auf einer "
  125.      "Festplatte oder auf 7 Disketten installieren.\nDie komplette Installation läuft "
  126.      "nahezu vollständig automatisch ab.\n"
  127.      "Das komplette Programm belegt ca. 7 MByte auf Ihrer Festplatte!\n\n"
  128.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  129.      "Drücken Sie \"Abort Install\", um die Installation abzubrechen."))
  130.  
  131. ;(set #help-startup
  132. ;(cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  133. ;     "In ihr befinden sich spezielle Kommandos, die einige Programme "
  134. ;     "bereits beim Systemstart ausführen.\n\n"
  135. ;     "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  136. ;     "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  137. ;     "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  138. ;     "den Schalter \"Skip This Part\"\n\n"
  139. ;     "\"Abort\" bricht die Installation an dieser Stelle ab."))
  140. ;(set #help-delete
  141. ;(cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  142. ;     "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  143. ;     "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  144. ;     "\"Assigns\" gelöscht.\n\n"
  145. ;     "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  146. ;     "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  147. ;     "Installationsverzeichnis erhalten.\n\n"
  148. ;     "\"Abort\" bricht die Installation an dieser Stelle ab."))
  149.  
  150.  
  151.     (set #wrk-create-pref-file
  152.         "\nDie Voreinstellungs-Datei wird erzeugt...")
  153.     (set #wrk-installing-prgnormal
  154.         "\nDie Normalversion von MaxonCINEMA 4D wird installiert...\n")
  155.     (set #wrk-installing-prgturbo
  156.         "\nDie Turboversion von MaxonCINEMA 4D wird installiert...\n")
  157.     (set #wrk-installing-Diamant
  158.         "\nDie Beispieldatei Diamant wird entpackt...\n")
  159.     (set #wrk-installing-Helvetica
  160.         "\nEinige Fonts werden installiert...\n")
  161.     (set #wrk-installing-Konverter
  162.         "\nDer MaxonCINEMA 4D Konverter wird entpackt...\n")
  163.     (set #wrk-installing-Hilfsprogramme
  164.         "\nEinige Hilfsprogramme werden entpackt...\n")
  165.     (set #wrk-installing-Entwickler
  166.         "\nEinige Entwicklertools werden entpackt...\n")
  167.     (set #wrk-installing-Schubladen
  168.         "\nErzeuge einige Unterverzeichnisse...\n")
  169.     (set #wrk-installing-Diamantlklein
  170.         "\nDie Beispieldatei Diamant-Klein wird entpackt...\n")
  171.     (set #wrk-installing-Szenen
  172.         "\nEinige Beispielszenen werden entpackt\n")
  173.     (set #wrk-installing-Pictures
  174.         "\nEinige gepackte Bilder werden kopiert\n")
  175.     (set #wrk-installing-Texture
  176.         "\nDie Texturen werden kopiert!\n")
  177.  
  178. (set #prp-installation
  179.             "Auf welches Medium möchten Sie gerne installieren?")
  180. (set #hlp-installation
  181. (cat    "    Bitte geben Sie hier vor, ob Sie eine Disketten- "
  182.             "oder Festplatteninstallation wünschen!\n\n"
  183.             "Das komplette Programm belegt auf der Festplatte "
  184.             "ca. 2 MByte Speicher. Wenn Sie eine Disketteninstallation "
  185.             "wünschen, müssen Sie zuvor 7 (sieben) Diskette "
  186.             "formatieren und bereitlegen! Die Diskettenname werden "
  187.             "bei der Installation verändert, so daß die Vorgaben von "
  188.             "Ihnen nicht relevant sind!"
  189.             "\n\n"
  190.              @askchoice-help))
  191.     (set #disk-installation
  192.         "Auf Diskette")
  193.     (set #harddisk-installation
  194.         "Auf Festplatte")
  195.  
  196. (set #askdir-global
  197. (cat "Beschreibung der Schalter:\n\n"
  198.          "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  199.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  200.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  201.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  202.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  203.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  204.      "befindete sich ein Schieber, mit dem man sich durch eine "
  205.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  206.      "alle Einträge ausreicht.\n\n"
  207.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  208.      "einer Schublade geklickt wird.\n\n"
  209.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  210.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  211.      "wurde.)\n\n"
  212.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  213.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  214.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  215.      "anzusehen.\n\n"
  216.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  217.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  218.      "angelegt, das Sie soeben betrachten.\nBei der Installation von MaxonCINEMA 4D"
  219.          "wird automatisch ein Verzeichnis mit dem Namen \"MCPP\" angelegt\n\n"
  220.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  221.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  222.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  223.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  224.      "vorgenommen.\n\n"
  225.      "\"Help...\" zeigt diesen Text."))
  226. (set #prp-installdrawer
  227.             "Auf welches Medium möchten Sie gerne installieren?")
  228. (set #askdir-help
  229. (cat     "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  230.             "Sie gerne MaxonCINEMA 4D installieren möchten. Dann drücken Sie "
  231.             "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n"
  232.             "Es ist nicht notwendig eine Schublade anzulegen! Es wird automatisch "
  233.             "die Schublade MaxonCINEMA erzeugt!\n\n"
  234.             #askdir-global))
  235. (set #prp-diskinstalldrawer
  236.             "In welchem Diskettenlaufwerk sollen die Daten geschrieben werden?\n")
  237. (set #askdisk-help
  238. (cat         "\nStellen Sie zunächst sicher, daß Sie sieben (7) Disketten "
  239.             "formatiert haben. Legen Sie dann eine Diskette in das Laufwerk, "
  240.             "das als Ziellaufwerk für die Installation genutzt werden soll. "
  241.             "\nBeachten Sie bitte, daß alle sieben (7) Disketten nach "
  242.             "Aufforderung in dieses Laufwerk eingelegt werden müssen!\n"
  243.             #askdir-global))
  244.  
  245. (set #prp-versionchoice
  246. (cat    "\nMöchten Sie die Turboversion oder die Normalversion installieren?\n"))
  247. (set #normal-version
  248.             "Normalversion")
  249. (set #turbo-version
  250.             "Turboversion")
  251. (set #hlp-versionchoice
  252. (cat    "\nWenn Sie die Normalversion wählen wird der in Ihrem System vorhandene "
  253.             "mathematische Coprozessor nicht genutzt. Die Normalversion ist die "
  254.             "langsamere Programmversion. Sie sollten diese wählen, wenn Sie über "
  255.             "keinen mathematischen Coprozessor (68881/68882) verfügen.\n"
  256.             "Die schnellere Turboversion nutzt den mathematischen Coprozessor und "
  257.             "sollte installiert werden, wenn Sie Beispielsweise auf einem A2000 mit "
  258.             "Turbokarte, einem A3000 oder einem A4000 installieren!\n\n"
  259.             @askchoice-help))
  260.  
  261. (set #prp-palntsc
  262. (cat    "\nMöchten Sie die Pal- oder NTSC-Einstellung installieren?\n"))
  263. (set #pal-pref
  264.             "PAL")
  265. (set #ntsc-pref
  266.             "NTSC")
  267. (set #hlp-palntsc
  268. (cat    "\nJe nach Einstellung werden entsprechende Voreinstellungen installiert, "
  269.             "die es ermöglichen, MaxonCINEMA 4D auf einem PAL- oder NTSC-Monitor zu "
  270.             "betreiben!\n\n"
  271.             @askchoice-help))
  272.  
  273. (set #prp-grafikausgabe
  274. (cat    "\nSollen Ausgabetreiber für 24 Bit Grafiksysteme installiert werden?\n"))
  275. (set #no-gfxout
  276.             "Keine")
  277. (set #retina-gfxout
  278.             "Retina")
  279. (set #egs-gfxout
  280.             "EGS")
  281. (set #hlp-grafikausgabe
  282. (cat    "\nWenn Sie keine Grafikkarte besitzen oder wenn EGS auf Ihrem System nicht "
  283.             "installiert ist, können Sie diese Frage mit Klick auf \"Proceed\" übergehen.\n"
  284.             "Ist eine Retina Grafikkarte in Ihrem Amiga installiert können Sie "
  285.             "veranlassen, daß ein entsprechende Treiber für die Anzeige in hoher "
  286.             "Auflösung installiert wird.\n"
  287.             "Wenn Sie die Piccolo oder die Spektrum Grafikkarte installiert haben, sollten "
  288.             "Sie die Ausgabetreiber für die EGS-Library installieren!\n\n"
  289.             @askchoice-help))
  290.  
  291. (set #prp-sampleinstall
  292. (cat    "\nSollen die beiliegenden Beispiele, Bibliotheken und Bilder installiert werden?\n"))
  293. (set #yes-samples
  294.             "Ja")
  295. (set #no-samples
  296.             "Nein")
  297. (set #hlp-sampleinstall
  298. (cat    "\n\n"
  299.             @askchoice-help))
  300.  
  301.  
  302. (set #msg-install-retina-lib
  303.         (cat    "\nNun wird die Cinema-Ausgabe-Library im LIBS:-Ordner installiert.\n\n"
  304.                 "Diese Library wird benötigt, wenn Sie die Ausgbabe auf einer "
  305.                 "Grafikkarte wie der Retina oder einer EGS-Grafikkarte wie "
  306.                 "der Piccolo ermöglichen wollen!"))
  307.  
  308.  
  309.     (set #prp-copy-cinelib
  310.         "Kopieren der Cinema-Ausgabe-Library")
  311.     (set #hlp-copy-cinelib
  312.         (cat    "    Die Cinema-Ausgabe-Library enthält leistungsfähige Funktionen zum "
  313.                 "Betreiben von CINEMA 4D unter den besonderen Fähigkeiten von "
  314.                 "24 Bit Grafikkarten"
  315.                 "\n\n"
  316.                 @copylib-help))
  317.  
  318.     (set #prp-copy-rct-lib
  319.         "Kopieren der RCT-Library")
  320.     (set #hlp-copy-rct-lib
  321.       (cat    "Die RCT-Library beinhaltet den Standard-Filerequester "
  322.         "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  323.         "installiert haben, dann ist hier eine neuere Version.\n\n"))
  324.  
  325.     (set #msg-disk-too-small
  326.         (cat    "\nDieser Fehler tritt üblicherweise auf, wenn auf Disketten "
  327.                 "installiert wird (wenn Sie auf Festplatte installieren und diese "
  328.                 "Meldung erhalten, sollten Sie jetzt die Installation abbrechen und "
  329.                 "erst mal ein wenig Platz auf Ihrer Platte schaffen!).\n\n"))
  330.     (set #msg-disk-wasnt-empty
  331.         (cat    "Allerdings müßte für die von Ihnen ausgewählten Daten "
  332.                 "genügend Platz auf der ausgewählten Diskette sein! Scheinbar "
  333.                 "haben Sie keine vollkommen leere Disk verwendet! "
  334.                 "Aus diesem Grund wird die Installation jetzt abgebrochen."))
  335.  
  336.     (set #hh-disk-not-enough-space
  337.         (cat    "Bereiten Sie bitte vor dem nächsten Installations-Versuch "
  338.                 "eine neue Disk vor und verwenden Sie diese.\n\n"
  339.                 "(Hinweise zum Formatieren von Disketten entnehmen Sie bitte "
  340.                 "Ihrem Amiga-Benutzerhandbuch)"))
  341.  
  342.     (set #hlp-install-demo-pro
  343.         (cat    "    Wenn Sie die Abfrage mit 'Ja' beantworten, können Sie ein "
  344.                 "beliebiges Verzeichnis auswählen, in dem die Beispiel-Texte "
  345.                 "dann abgelegt werden.\n"
  346.                 "    Antworten Sie mit 'Nein', wenn Sie die Beispiele nicht "
  347.                 "benötigen."))
  348.     (set #prp-demo-pro-dir
  349.         "Ziel-Verzeichnis für die Beispiel-Daten")
  350.  
  351. (set #prp-insert-disk1
  352.         (cat "\n\nBitte legen Sie nun die Diskette 1 \"INSTALLATION\" "
  353.                  "in ein beliebiges Laufwerk ein!"))
  354. (set #prp-insert-disk2
  355.         (cat "\n\nBitte legen Sie nun die Diskette 2 \"DISKETTE2\" "
  356.                  "in ein beliebiges Laufwerk ein!"))
  357. (set #prp-insert-disk3
  358.         (cat "\n\nBitte legen Sie nun die Diskette 3 \"DISKETTE3\" "
  359.                  "in ein beliebiges Laufwerk ein!"))
  360. (set #prp-insert-disk4
  361.         (cat "\n\nBitte legen Sie nun die Diskette 4 \"DISKETTE4\" "
  362.                  "in ein beliebiges Laufwerk ein!"))
  363.  
  364. (set #prp-insert-texturen
  365.         (cat "\n\nBitte legen Sie nun die Diskette \"TEXTUREN\" "
  366.                  "in ein beliebiges Laufwerk ein!"))
  367.  
  368. (set #prp-somefiles
  369.         (cat "\nEinige Installationsdateien werden kopiert ...\n"))
  370.  
  371.  
  372. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  373.  
  374. (set @abort-button "Abbruch")
  375. (set @language "Deutsch")
  376.  
  377. (Procedure Inst_NormFiles
  378. ;    (if (< (getdiskspace @Dest) @Size)
  379. ;        (abort #no-inst))
  380.  
  381.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  382.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  383. )
  384.  
  385. (Procedure Inst_PatternFiles
  386.     (set @Dest_File (tackon @default-dest @Dest))
  387.     (if                                          ; Verzeichnis erzeugen
  388.         (= (exists @Dest_File) 0)
  389.         (makedir (@Dest_File))
  390.     )
  391.  
  392.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest_File))
  393.     (working @Working @Dest)
  394.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File)(confirm))
  395. )
  396.  
  397. (Procedure Inst_DiskPatternFiles
  398.     (set @Dest_File @Dest)
  399.     (if                                          ; Verzeichnis erzeugen
  400.         (= (exists @Dest_File) 0)
  401.         (makedir (@Dest_File))
  402.     )
  403.  
  404.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest_File))
  405.     (working @Working @Dest)
  406.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File)(confirm))
  407. )
  408.  
  409. (Procedure Inst_LhaFiles
  410.     (set @TMP (tackon "RAM:" (fileonly @Source)))
  411.     (if                 ; Verzeichnis erzeugen
  412.         (= (exists @Dest) 0)
  413.         (makedir (@Dest)(infos))
  414.     )
  415.  
  416.     (copyfiles (prompt "")(help "")(source @Source)(newname (fileonly @Source))(dest "RAM:"))
  417.     (working @Working @Dest)
  418.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest))
  419.     (delete @TMP)
  420. )
  421.  
  422. (Procedure Inst_Disk-LhaFiles
  423.     (
  424.     (set @TMP (tackon "RAM:" (fileonly @Source)))
  425. ;    (set @Dest (tackon @DiskNEU @Dest))
  426.  
  427.     (copyfiles (prompt "")(help "")(source @Source)(newname (fileonly @Source))(dest "RAM:")(confirm))
  428.  
  429.     (set @STRING ("\nBitte legen Sie nun die Diskette %s in ein beliebiges Laufwerk ein!\n" @DiskNEU))
  430.  
  431.     (askdisk
  432.         (prompt @STRING)
  433.         (help @askdisk-help)
  434.         (dest @Disk)
  435.     )
  436.  
  437.     (working @Working @DiskNEU)
  438.     (run ("RAM:Lhx -E -N x %s \"%s\"" @TMP @DiskNEU))
  439.     (delete @TMP))
  440. )
  441.  
  442.  
  443. (message #introduction)
  444. (welcome)
  445.  
  446. (set fdinstall                    ; auf Disk oder Festplatte
  447.     (askchoice
  448.         (prompt #prp-installation)
  449.         (help #hlp-installation)
  450.         (choices #disk-installation #harddisk-installation)
  451.         (default fdinstall)
  452.     )
  453. )
  454.  
  455. (if (= fdinstall 1)            ; auf Festplatte installieren !
  456.     (
  457.         (set @default-dest                           ;Laufwerk aussuchen 
  458.             (askdir
  459.                 (prompt #prp-installdrawer)
  460.                 (help    #askdir-help)
  461.                 (default fdrawer)
  462.                 (disk)
  463.             )
  464.         )
  465.         
  466.         (set @default-dest
  467.             (pathonly @default-dest))                            ; Nur das Laufwerk wird benötigt
  468.         
  469.         (set @default-dest (tackon @default-dest "MaxonCINEMA"))
  470.         
  471.         (if                                          ; Verzeichnis erzeugen
  472.             (= (exists @default-dest) 0)
  473.             (makedir (@default-dest)(infos))
  474.         )
  475.     )
  476.     (
  477.     (run ("INSTALLATION:C/ANZEIGER"))
  478.     )
  479. )
  480.  
  481. (set fdversion                    ; Normal- oder Turboversion
  482.     (askchoice
  483.         (prompt #prp-versionchoice)
  484.         (help #hlp-versionchoice)
  485.         (choices #normal-version #turbo-version)
  486.         (default fdversion)
  487.     )
  488. )
  489.  
  490. (set palntsc                        ; Pal oder NTSC
  491.     (askchoice
  492.         (prompt #prp-palntsc)
  493.         (help #hlp-palntsc)
  494.         (choices #pal-pref #ntsc-pref)
  495.         (default palntsc)
  496.     )
  497. )
  498.  
  499. (set gfxout                            ; auf Grafikkarte
  500.     (askchoice
  501.         (prompt #prp-grafikausgabe)
  502.         (help #hlp-grafikausgabe)
  503.         (choices #no-gfxout #retina-gfxout #egs-gfxout)
  504.         (default gfxout)
  505.     )
  506. )
  507.  
  508. (set samples
  509.     (askchoice
  510.         (prompt #prp-sampleinstall)
  511.         (help #hlp-sampleinstall)
  512.         (choices #no-samples #yes-samples)
  513.         (default samples)
  514.     )
  515. )
  516.  
  517. ; Diskette 1 liegt wahrscheinlich schon im Laufwerk. Dennoch Sicherheitshalber die Abfrage!
  518.  
  519. (askdisk
  520.     (prompt #prp-insert-disk1)
  521.     (help @askdisk-help)
  522.     (dest DISK1)
  523. )
  524.  
  525.  
  526. ;(if
  527. ;  (= (exists "C:MuchMore") 0)
  528. ;        (copyfiles                                        ; MuchMore kopieren
  529. ;        (prompt #prp-somefiles)
  530. ;        (help @copyfiles-help)
  531. ;        (source "MaxonC++_D1:C")
  532. ;        (dest "C:")
  533. ;       (choices "MuchMore")
  534. ;    )
  535. ;)
  536.  
  537. (copyfiles                                            ; LHX kopieren
  538.     (prompt #prp-somefiles)
  539.     (help @copyfiles-help)
  540.     (source sourcefd-lhx)
  541.     (dest "RAM:")
  542. ; (choices "Lhx")
  543. )
  544.  
  545. (complete 10)
  546.  
  547. (if(= 0 (exists "RAM:Lhx"))
  548.     (abort #ERRORRAM))
  549.  
  550. (if (= fdinstall 1)            ; auf Festplatte installieren !
  551.     (
  552.         (if (= fdversion 0)    ; Normalversion kopieren
  553.             (
  554.                 (set @Working #wrk-installing-prgnormal)
  555.                 (set @Source sourcefd-lha-normalversion)
  556.                 (set @Dest @default-dest)
  557.                 (Inst_LhaFiles)    ; Entpacken
  558.             )
  559.             (                                    ; Turboversion installieren
  560.                 (set @Working #wrk-installing-prgturbo)
  561.                 (set @Source sourcefd-lha-turboversion)
  562.                 (set @Dest @default-dest)
  563.                 (Inst_LhaFiles)    ; Entpacken
  564.             )
  565.         )
  566.  
  567.         (complete 20)
  568.  
  569.         (set #Erweiterungen (tackon @default-dest "Erweiterungen"))
  570.         (set #Koerper (tackon #Erweiterungen "Körper"))
  571.         (set #Werkzeuge (tackon #Erweiterungen  "Werkzeuge"))
  572.         (set #Transformation (tackon #Erweiterungen  "Transformation"))
  573.     
  574.         (makedir (#Erweiterungen)(infos))
  575.         (makedir (#Koerper)(infos))
  576.         (makedir (#Werkzeuge)(infos))
  577.         (makedir (#Transformation)(infos))
  578.     
  579.         (if (= palntsc 1)    ; NTSC Version    - Pref-Datei installieren
  580.             (
  581.                 (copyfiles
  582.                     (prompt #wrk-create-pref-file)
  583.                     (help @copyfiles-help)
  584.                     (source (if (= fdversion 0) sourcef-ntscnormal sourcef-ntscturbo))
  585.                     (dest @default-dest)
  586.                     (newname "Cinema4D.prefs")
  587.                     (confirm)
  588.                 )))
  589.  
  590.         (askdisk        ; Diskette 2 einlegen!
  591.             (prompt #prp-insert-disk2)
  592.             (help @askdisk-help)
  593.             (dest DISK2)
  594.         )
  595.  
  596.         (complete 30)
  597.  
  598.         (if os-13
  599.             (copylib                                              ; RCT-LIB kopieren
  600.                     (prompt #prp-copy-rct-lib)
  601.                     (help #hlp-copy-rct-lib)
  602.                     (source sourcefd-rctlib)
  603.                     (dest "LIBS:")
  604.                     (confirm)
  605.             ))
  606.  
  607.         (if (<> gfxout 0)
  608.             (if (= gfxout 1)    ; Retina output
  609.                 (copylib                                              ; Retina-LIB kopieren
  610.                     (prompt #prp-copy-cinelib)
  611.                     (help #hlp-copy-cinelib)
  612.                     (source sourcefd-retina)
  613.                     (dest "LIBS:")
  614.                     (confirm)
  615.                 )
  616.                 (copylib                                              ; EGS-LIB kopieren
  617.                     (prompt #prp-copy-cinelib)
  618.                     (help #hlp-copy-cinelib)
  619.                     (source sourcefd-egs)
  620.                     (dest "LIBS:")
  621.                     (confirm)
  622.                 )
  623.             )
  624.         )
  625.         (complete 40)
  626.         (if (<> samples 0)
  627.             (
  628.                 (set @Working #wrk-installing-Diamant)
  629.                 (set @Source sourcefd-lha-Diamant)
  630.                 (set @Dest @default-dest)
  631.                 (Inst_LhaFiles)    ; Entpacken
  632.                 (complete 42)
  633.  
  634.                 (set @Working #wrk-installing-Helvetica)
  635.                 (set @Source sourcefd-lha-Helvetica)
  636.                 (set @Dest @default-dest)
  637.                 (Inst_LhaFiles)    ; Entpacken
  638.                 (complete 44)
  639.  
  640.                 (set @Working #wrk-installing-Konverter)
  641.                 (set @Source sourcefd-lha-Konverter)
  642.                 (set @Dest @default-dest)
  643.                 (Inst_LhaFiles)    ; Entpacken
  644.                 (complete 46)
  645.  
  646.                 (set @Working #wrk-installing-Hilfsprogramme)
  647.                 (set @Source sourcefd-lha-Hilfsprogs)
  648.                 (set @Dest @default-dest)
  649.                 (Inst_LhaFiles)    ; Entpacken
  650.                 (complete 48)
  651.  
  652.                 (set @Working #wrk-installing-Entwickler)
  653.                 (set @Source sourcefd-lha-Entwickler)
  654.                 (set @Dest @default-dest)
  655.                 (Inst_LhaFiles)    ; Entpacken
  656.                 (complete 50)
  657.  
  658.                 (askdisk                                                    ; Diskette 3 einlegen!
  659.                     (prompt #prp-insert-disk3)
  660.                     (help @askdisk-help)
  661.                     (dest DISK3)
  662.                 )
  663.  
  664.                 (set @Working #wrk-installing-Schubladen)
  665.                 (set @Source sourcefd-lha-Schubladen)
  666.                 (set @Dest @default-dest)
  667.                 (Inst_LhaFiles)    ; Entpacken
  668.                 (complete 52)
  669.  
  670.                 (set @Working #wrk-installing-Diamantlklein)
  671.                 (set @Source sourcefd-lha-Diamantklein)
  672.                 (set @Dest (tackon @default-dest "DIAMANT"))
  673.                 (Inst_LhaFiles)    ; Entpacken
  674.                 (complete 54)
  675.  
  676.                 (set @Working #wrk-installing-Szenen)
  677.                 (set @Source sourcefd-lha-Szenen)
  678.                 (set @Dest @default-dest)
  679.                 (Inst_LhaFiles)    ; Entpacken
  680.                 (complete 56)
  681.  
  682.                 (set @Working #wrk-installing-Pictures)                ; Default Icons kopieren
  683.                 (set @Dest "Bilder")
  684.                 (set @Source sourcef-pattern-bilder    )
  685.                 (set @Pattern "#?")
  686.                 (set @Size 0)
  687.                 (Inst_PatternFiles)                
  688.                 (complete 58)
  689.  
  690.                 (askdisk                                                    ; Diskette 4 einlegen!
  691.                     (prompt #prp-insert-disk4)
  692.                     (help @askdisk-help)
  693.                     (dest DISK4)
  694.                 )
  695.  
  696.                 (set @Working #wrk-installing-Texture)                ; Default Icons kopieren
  697.                 (set @Dest "Texturen")
  698.                 (set @Source sourcef-Pattern-disk4)
  699.                 (set @Pattern "#?")
  700.                 (set @Size 0)
  701.                 (Inst_PatternFiles)                
  702.  
  703.             )
  704.         )
  705.     (complete 60)
  706.     )
  707.     (    ; Disketteninstallation
  708.         (if (= fdversion 0)    ; Normalversion kopieren
  709.             (
  710.                 (set @Working #wrk-installing-prgnormal)
  711.                 (set @Source sourcefd-lha-normalversion)
  712.                 (set @Disk destdisk1)
  713.                 (set @DiskNEU diskdest11)
  714.                 (set @Dest "")
  715.                 (Inst_Disk-LhaFiles)    ; Entpacken
  716.             )
  717.             (                                    ; Turboversion installieren
  718.                 (set @Working #wrk-installing-prgturbo)
  719.                 (set @Source sourcefd-lha-turboversion)
  720.                 (set @Disk destdisk1)
  721.                 (set @DiskNEU diskdest11)
  722.                 (set @Dest "")
  723.                 (Inst_Disk-LhaFiles)    ; Entpacken
  724.             )
  725.         )
  726.         (complete 20)
  727.  
  728.         (set #Erweiterungen (tackon diskdest11 "Erweiterungen"))
  729.         (set #Koerper (tackon #Erweiterungen "Körper"))
  730.         (set #Werkzeuge (tackon #Erweiterungen  "Werkzeuge"))
  731.         (set #Transformation (tackon #Erweiterungen  "Transformation"))
  732.     
  733.         (makedir (#Erweiterungen)(infos))
  734.         (makedir (#Koerper)(infos))
  735.         (makedir (#Werkzeuge)(infos))
  736.         (makedir (#Transformation)(infos))
  737.  
  738.         (if (= palntsc 1)    ; NTSC Version    - Pref-Datei installieren
  739.             (
  740.                 (copyfiles
  741.                     (prompt #wrk-create-pref-file)
  742.                     (help @copyfiles-help)
  743.                     (source (if (= fdversion 0) sourced-ntscnormal sourced-ntscturbo))
  744.                     (dest diskdest11)
  745.                     (newname "Cinema4D.prefs")
  746.                     (confirm)
  747.                 )
  748.             )
  749.             (
  750.                 (copyfiles
  751.                     (prompt #wrk-create-pref-file)
  752.                     (help @copyfiles-help)
  753.                     (source (if (= fdversion 0) sourced-palnormal sourced-palturbo))
  754.                     (dest diskdest11)
  755.                     (newname "Cinema4D.prefs")
  756.                     (confirm)
  757.                 )
  758.  
  759.             )
  760.         )
  761.  
  762.         (askdisk        ; Diskette 2 einlegen!
  763.             (prompt #prp-insert-disk2)
  764.             (help @askdisk-help)
  765.             (dest DISK2)
  766.         )
  767.  
  768.         (complete 30)
  769.  
  770.         (if os-13
  771.             (copylib                                              ; RCT-LIB kopieren
  772.                     (prompt #prp-copy-rct-lib)
  773.                     (help #hlp-copy-rct-lib)
  774.                     (source sourcefd-rctlib)
  775.                     (dest "LIBS:")
  776.                     (confirm)
  777.             ))
  778.  
  779.         (if (<> gfxout 0)
  780.             (if (= gfxout 1)    ; Retina output
  781.                 (copylib                                              ; Retina-LIB kopieren
  782.                     (prompt #prp-copy-cinelib)
  783.                     (help #hlp-copy-cinelib)
  784.                     (source sourcefd-retina)
  785.                     (dest "LIBS:")
  786.                     (confirm)
  787.                 )
  788.                 (copylib                                              ; EGS-LIB kopieren
  789.                     (prompt #prp-copy-cinelib)
  790.                     (help #hlp-copy-cinelib)
  791.                     (source sourcefd-egs)
  792.                     (dest "LIBS:")
  793.                     (confirm)
  794.                 )
  795.             )
  796.         )
  797.         (complete 40)
  798.         (if (<> samples 0)
  799.             (
  800.                 (set @Working #wrk-installing-Konverter)
  801.                 (set @Source sourcefd-lha-Konverter)
  802.                 (set @Disk destdisk2)
  803.                 (set @DiskNEU diskdest22)
  804.                 (set @Dest "")
  805.                 (Inst_Disk-LhaFiles)    ; Entpacken
  806.  
  807.                 (complete 46)
  808.  
  809.  
  810.                 (set @Working #wrk-installing-Hilfsprogramme)
  811.                 (set @Source sourcefd-lha-Hilfsprogs)
  812.                 (set @Disk destdisk2)
  813.                 (set @DiskNEU diskdest22)
  814.                 (set @Dest "")
  815.                 (Inst_Disk-LhaFiles)    ; Entpacken
  816.                 (complete 48)
  817.  
  818.                 (set @Working #wrk-installing-Entwickler)
  819.                 (set @Source sourcefd-lha-Entwickler)
  820.                 (set @Disk destdisk2)
  821.                 (set @DiskNEU diskdest22)
  822.                 (set @Dest "")
  823.                 (Inst_Disk-LhaFiles)    ; Entpacken
  824.                 (complete 50)
  825.  
  826.                 (set @Working #wrk-installing-Diamant)
  827.                 (set @Source sourcefd-lha-Diamant)
  828.                 (set @Disk destdisk3)
  829.                 (set @DiskNEU diskdest33)
  830.                 (set @Dest "")
  831.                 (Inst_Disk-LhaFiles)    ; Entpacken
  832.  
  833.                 (set @Working #wrk-installing-Helvetica)
  834.                 (set @Source sourcefd-lha-Helvetica)
  835.                 (set @Disk destdisk4)
  836.                 (set @DiskNEU diskdest44)
  837.                 (set @Dest "")
  838.                 (Inst_Disk-LhaFiles)    ; Entpacken
  839.  
  840.                 (askdisk                                                    ; Diskette 3 einlegen!
  841.                     (prompt #prp-insert-disk3)
  842.                     (help @askdisk-help)
  843.                     (dest DISK3)
  844.                 )
  845.  
  846.                 (set @DIAMANTSTR (tackon diskdest44 "DIAMANT"))
  847.                 (if                                          ; Verzeichnis erzeugen
  848.                     (= (exists @DIAMANTSTR) 0)
  849.                     (makedir (@DIAMANTSTR)(infos))
  850.                 )
  851.  
  852.                 (set @Working #wrk-installing-Diamantlklein)
  853.                 (set @Source sourcefd-lha-Diamantklein)
  854.                 (set @Disk destdisk4)
  855.                 (set @DiskNEU (tackon diskdest44 "DIAMANT"))
  856.                 (Inst_Disk-LhaFiles)    ; Entpacken
  857.                 (complete 54)
  858.  
  859.                 (set @Working #wrk-installing-Szenen)
  860.                 (set @Source sourcefd-lha-Szenen)
  861.                 (set @Disk destdisk5)
  862.                 (set @DiskNEU diskdest55)
  863.                 (set @Dest "")
  864.                 (Inst_Disk-LhaFiles)    ; Entpacken
  865.                 (complete 56)
  866.  
  867.                 (set @Working #wrk-installing-Schubladen)
  868.                 (set @Source sourcefd-lha-Schubladen)
  869.                 (set @Disk destdisk6)
  870.                 (set @DiskNEU diskdest66)
  871.                 (set @Dest "")
  872.                 (Inst_Disk-LhaFiles)    ; Entpacken
  873.                 (complete 52)
  874.  
  875.                 (set @Working #wrk-installing-Pictures)                ; Default Icons kopieren
  876.                 (set @Dest (tackon diskdest66 "Bilder"))
  877.                 (set @Source sourcef-pattern-bilder    )
  878.                 (set @Pattern "#?")
  879.                 (set @Size 0)
  880.                 (Inst_DiskPatternFiles)                
  881.                 (complete 58)
  882.  
  883.                 (askdisk                                                    ; Diskette 4 einlegen!
  884.                     (prompt #prp-insert-disk4)
  885.                     (help @askdisk-help)
  886.                     (dest DISK4)
  887.                 )
  888.  
  889.                 (askdisk
  890.                     (prompt #prp-insert-texturen)
  891.                     (help @askdisk-help)
  892.                     (dest DISKTEXTUREN)
  893.                 )
  894.  
  895.                 (set @Working #wrk-installing-Texture)                ; Default Icons kopieren
  896.                 (set @Dest diskdest77)
  897.                 (set @Source sourcef-Pattern-disk4)
  898.                 (set @Pattern "#?")
  899.                 (set @Size 0)
  900.                 (Inst_DiskPatternFiles)                
  901.             )
  902.         )
  903.     )
  904. )
  905.  
  906. (complete 100)
  907.  
  908. ; ------- FERTIG
  909.  
  910. (askdisk
  911.     (prompt #prp-insert-disk1)
  912.     (help @askdisk-help)
  913.     (dest DISK1)
  914. )
  915.  
  916. (run ("INSTALLATION:C/ANZEIGER"))
  917.  
  918. (message (cat 
  919.         "Installation von MaxonCINEMA 4D ist erfolgreich beendet.\n"
  920.         "Bevor Sie die Diskette entfernen sollten Sie noch die Datei "
  921.         "\"Wichtig\" anklicken und durchlesen!\n\n"
  922.        "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  923.        "MaxonCINEMA 4D.\n\nViel Erfolg!")
  924. )
  925.